home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00280.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  619 b   |  26 lines
  1. on mouseUp
  2.   global correctionMade, currentCycleNo, cycleNo, userNo, wantsToViewCycles
  3.   if correctionMade = 0 then
  4.     if the optionDown then
  5.       quit()
  6.     end if
  7.     killcorrection()
  8.     writecycleinfo()
  9.     if currentCycleNo <> getAt(cycleNo, userNo) then
  10.       set currentCycleNo to getAt(cycleNo, userNo)
  11.       readCycleInfo()
  12.     end if
  13.     puppetVisible(13, 48, 1)
  14.     puppetStatus(11, 48, 0)
  15.     go("removeImage")
  16.     set the visible of sprite 7 to 1
  17.     prepfrontpage()
  18.   else
  19.     set wantsToViewCycles to 0
  20.     go("save changes")
  21.     set the visible of sprite 7 to 1
  22.     cursor(0)
  23.   end if
  24.   cursor(0)
  25. end
  26.